unit dPedido_Venc;

interface
uses
classes,
dObjects;

type
Tpedido_venc=class(TdObjects)
private
fdtpagamento : tdatetime;
fdtvencimento : tdatetime;
fidduplicata : integer;
fidpagamento : integer;
fidpedido : integer;
fvalpagamento : double;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property dtpagamento : tdatetime read fdtpagamento write fdtpagamento;
 property dtvencimento : tdatetime read fdtvencimento write fdtvencimento;
 property idduplicata : integer read fidduplicata write fidduplicata;
 property idpagamento : integer read fidpagamento write fidpagamento;
 property idpedido : integer read fidpedido write fidpedido;
 property valpagamento : double read fvalpagamento write fvalpagamento;
end;
implementation
constructor Tpedido_venc.create;
begin
inherited;
clear;
self.AddPK(['idpedido']);
self.TableName := 'pedido_venc';
end;
destructor Tpedido_venc.destroy;
begin
inherited destroy;
end;
procedure Tpedido_venc.clear;
begin
 fdtpagamento  :=0;
 fdtvencimento :=0;
 fidduplicata  :=0;
 fidpagamento  :=0;
 fidpedido     :=0;
 fvalpagamento :=0.0;
end;

end.
